PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
P PP 


P PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


GG 
GGGGGGGGG 


GGGGGGGGGGGG 
GGGGGGGGGGGG 


GGGGGGGGGGGG 
GG 


GGGGGGGGG 
GGGGGGGGG 


Att tt St st Ht Ht SH Ht tS St HH St 
| LLL) 
AHHH St tt St St tS St tS tS 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


o 


Va 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
09 
00 
00 


G 13 
**F ILE®e1D**RPGEXTIND 


RRRRRRRR PPPPPPPP GGGGGGGG EEEEEEEEEE xx XX TITTTTTTTT eee NN NN DDDDDDDD 
RRRRRRRR PPPPPPPP GGGGGGGG EEEEEEEEEE xx XX TTTTTTTTTT III! NN NN DDDDDDDD 
RR RR PP PP GG EE XX XX TT II NN NN DD DD 
RR RR PP PP GG EE XX XX TT II NN NN DD DD 
RR RR PP PP GG EE XX XX TT II NNNN NN DD DD 
RR RR PP PP GG EE XX XX TT II NNN NN DD DD 
RRRRRRRR PPPPPPPP GG EEEEEEEE XX TT II NN NN NN DD DD | 
RRRRRRRR PPPPPPPP GG EEEEEEEE XX TT Il NN NN NN DD DD 
RR RR PP GG GGGGGG EE XX XX TT II NN NNN DD DD 
RR RR pp GG GGGGGG EE XX XX TT II NN NNNN DD DD 
RR RR PP GG GG EE XX XX TT II NN NN DD DD éiuak 
RR RR PP GG FE XX XX TT II NN NN DD DD onal 
RR RR PP GGGGG EEEEEEEEEE XxX XX TT III NN NN DDDDDDDD shiva 
RR RR PP GGGGGG EEEEEEEEEE XX XX TT eeeee NN NN DDDDDDDD 2 ech 

| 
LL IIIIII SSSSSSSS 
LL IIIIE SSSSSSSS 
LL II S$ 
LL 11 S$ 
LL I] Ss | 
LL I] $$ 
LL I] SSSSSS | 
LL I] SSSSSS 
LL I] Ss 
LL I] $$ 
LL I] Ss 
LL I] ss 
LLLLLLLLLL IIII11 SSSSSSSS 
LLLLLLLELLL III] SSSSSSSS 
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RPGSEXT_INDS Read external RPGII indicators 19-3007 138% 96: 14:38 AX-11 8 
14-Sep-1984 15:04:18 RPGRTL. 
3 1 01 MODULE RPGSEXT_INDS( &TITLE ‘Read external RPGII indicators’ 
; ¢ Oe pPEnt = '1-003' ! file: RPGEXTIND.B32 EDIT:DG1003 
3 4 004 1 BEGIN 
; 5 0005 1! 
3 § 0007 1 LORE ERRAAAAEAAAREAAARRAAAEAAEE REE E EE RAEAAEEEEAAEEAAAAAREEAEAEEREARERETAEE 
3 1 !® 
; 8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
; 9 0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
; 19 Baty : ALL RIGHTS RESERVED. 
; i O9t¢ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
, 3 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
3; | «66 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
. 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
; 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
3 i eit ; 1* TRANSFERRED. 
: :# 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
3; @ 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
3 $3 e 1 : :* CORPORATION. 
3 1 
: $6 $098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
3; «6 Oose 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
; 0025 1 !« 
; 6 0026 1 !* 
4 7 0027 1 LRA REAR R ERA EEA EEE 
: @& 0028 1! 
; $3 0029 1! 
; 0 0030 1! 
os 0031 1 !++ 
: 32 it) 1! FACILITY: RPGII SUPPORT 
3 9 0033 1! 
; 0034 1 ! ABSTRACT 
> 0035 1! < ‘ 2 
. = 0036 1! This routine reads external RPGII indicators. 
3 of 0037 1! 
ca 0038 1! 
: FF 0039 1 ! ENVIRONMENT: Vax-11 User Mode 
: 40 0040 1! 
= a ope) : AUTHOR: Debess Grabazs, CREATION DATE: 1-FEB-1983 
3 0045 1 ! MODIFIED BY: 
; «644 0044 1! 
, 6 «645 0045 1 ! 1-001 - Original. DG 1-FEB-1983 — 
i; 46 0046 1 ! 1-002 - Take out ZASCID - was making code unsharable. DG 11-Jul-1983 
OF 0047 1 ! 1-003 - Change dynamic string to static. DG 15-May-1984 
: «648 0048 1 !-- 
; 649 0049 : 
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1-00 14-Se 


=1386 96:16:98 AX-11 Bliss-32 v4 
Declarations 1984 15:04:18 


RPGRTL.SRCJRPGEXTIND.B52;1 (2). 


= 4 1 1 #3 ZSBITL ‘Declarations’ 

3 54 80 j 1 | "PROLOGUE FILE: 

; 5 0054 1 

; 0055 1 

Re 8039 1 REQUIRE ‘RTLIN:RPGPROLOG'; ! Switches, PSECTs, macros, 

; 121 1 i “Linkages and LIBRARYs 

ae ,, 01 ¢ 1 

; @660 01 1 !¢ 

: 61 01246 1 ! LINKAGES 

- <¢ 0125 1! NONE 

; 6 gt $ 1 !- 

; 64 1 1 

: 65 0128 1 !+ 
5 66 0129 1 ! TABLE OF CONTENTS: 

; 7 0130 1 !- 

. 2 0131 #1 
$ 69 01 ¢ 1 FORWARD ROUTINE 
ee. 01 1 RPGSEXT_INDS; 
3 71 0134 1 

; 7 0135 1 !+4 
: 7 0136 1 ! INCLUDE FILES 
: 2% 0137 1: NONE | 
ee 0138 1 !- 

oe 0139 1 
3 77 0140 1 !+4 
; «78 0141 1 | MACROS | 
: 79 014g 1} NONE | 
3 80 0145 1 !- 

7S a 0144 #1 
2 8 0145 1 !4 
a's 0146 1 ! EQUATED SYMBOLS | 
; 84 0147 1! NONE 

s 85 0148 1 !- | 
Py 86 0149 1 
oS ar 0150 1 !+ 

$ 88 0151 1 ! EXTERNAL REFERENCES 

; 3126 1 !- 

; 0153 (1 

; 91 0154 1 EXTERNAL ROUTINE | 
; 0155 1 LIBSSTOP, ' Stop execution via stonalting 
3 4 3136 : OTS$SCVT_L_TI; ! Convert longword to text 
s 95 8138 1 EXTERNAL LITERAL , 

: «#496 159 1 RPGS$_FATINTERR, ' Fatal internal error 

3 44 2189 : RPG$_INVARG; ! Invalid argument 
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RSBTTL "RPGSEXT_INDS = Read external RPGII indicators’ 
GLOBAL ROUTINE RPOSERT J0O SC 


RP XT_IN o 
iat 4  INDS 0 ies ze 


1 v4.0- 
RPGRTL.SRCJRPGEXT 


0 Ae 
IND.B32;1 


! Indicator number 
t+4¢ 

i) 

i FUNCTIONAL DESCRIPTION: 

The ha name RPGSEXT_INDS can be assigned to an 

indicator List of up to eight RPGII external indicators. 

An indicator is set ON by specifying it in the RPGSEXT_INDS 
indicator list. This routine accepts the number of a 

particular indicator as its input parameter. It then checks 

the indicator list for a match. If the indicator is present 


in the List, the routine returns a value of 1; otherwise it 
returns 0. 


CALLING SEQUENCE 

indicator_value.wlc.v = RPGSEXT_INDS (number.rl.v) 
FORMAL PARAMETERS: 

number indicator number 
IMPLICIT INPUTS: 

RPGSEXT_INDS = logical name which may be assigned to 
an indicator List of up to eight RPGII 
external indicators 

IMPLICIT OUTPUTS: 

NONE 

RETURN VALUE: 


SWITCH_VALUE = 1 means indicator is ON 
0 means indicator is OFF 


SIDE EFFECTS: 
NONE 


a ee em ee ee ee ee ee ee ee ed ee ed ed od wd od td 


NOUEWN 0 ODONAUESWN (OO ONAUSWN "ODO ONOUSWNR OO DONOUES WN 


Be Se Se Se Se Ge Ge Se Ge Ge Fe Ge Ge Ge Ge Ge SF Se Se Ge FHS Se Ge Se Se Se Se Se Se Ses Oe Be Oe Oe Ss Oe Oe SESE SH SHO oe Be Se ee 
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RPGSEXT_INDS Rea r -74 
gos RPCSE NDS = Read external RPGII indicators - RPGRTL.SRCJIRP EXTIND 88251 (4) 


=< ae 
Stas 
oe 


BEGIN 
LITERAL 
MIN_INDICATOR = 1, 
MAX_INDICATOR = 8, 
ON = 1, 
OF F = 0; 
YTE ! Local desc for call to $TRNLOG 


LOG BESC: BLOCKE 


L e 3 
NAME_TEXT: VECTOR CLNMSC_NAMLENGTH, BYTE); 
! Local string for logical name 


Length of logical name string 


'+ 
1 


Make sure input parameter is in acceptable range. 
le 


IF .NUMBER LSS MIN INDICATOR OR .NUMBER GTR MAX_INDICATOR 
THEN LIBSSTOP (RPGS_INVARG); 


'+ 
1 


Initialize descriptors for call to $TRNLOG. 


T_DESCCDSC$W_LENGTH LNMSC_NAMLENGTH; 
DEST_DESCCDSC$B_CLASS)] = DSC$K_CLASS_S; 
DEST-DESCCDSC$B_DTYPE] = DSCS$K-DTYPE_T; 
DEST_DESCCDSCSA_POINTER] = NAME_TEXT; 
LOG_DESCCDSC$W_LENGTH] = XCHARCOUNT ('RPGSEXT_INDS'); 
LOG_DESCCDSC$B-CLASS] = DSCS$K_CLASS_S; 

4 LOG-DESCCDSC$B_DTYPE] = DSCSK-DTYPE-T;: 
r LOG-DESCEDSC$A~POINTER] = UPLIT ('*RPGSEXT_INDS'); 
4 ‘+ 
5 i 
3 Try to translate the logical name RPGSEXT_INDS. 
5 i- 
P 025 IF (STRNLOG (LOGNAM = LOG_DESC, RSLLEN = NAME_LENGTH, 
RSLBUF = DEST~DESCS) EQL SS$_NORMAL 


ODOOOO OWWWWWWWW WON NINN NNN NOOO PPA DSTIUIVIVIIVT 
SSS Ls eS SS SSOP ES Sa SRN SSS SSF SSS SSS 


oo 
oo 


Logical name translated - see if requested indicator 
is set or not 


WN —O0OOnNOu 


RENSSS 


LOCAL 
NUM_STR: BLOCK(8,BYTE), ! Local desc for call to OTSSCVT_L_TI 


SOOOSOOCOCOSCOOOOSOOCOOOSOSSOSOSOSOSOSOSSSOSOOOOOSOOCOCOOOCOCOOOOOOCOOOOOOOOOO 


Mororononons 


Soon 
ons 


IAAP SPOPOROPENU RONONNNNUNNUU UNO PUUUUTONOPOONUPOROPOROPURORURUNURUNONUNUNURUNUNUNUNUNUNUNUND — 

o-- e 
me 
mn 
a 
< 

>2 

“nn 
wu 
" 


PDI wet st st st st sn tt kk kk kk 


So 
uw 


OCAL 
DEST_DESF: oad wid he ' Local desc for call to $TRNLOG 


SU EEE = 
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RPGSEXT_INDS Read external RPGII indicators 16-5 p-1984 02:14:55 AX-11 Bliss-32 V4.0-74 f 
1-00 808 RPGSEXT_INDS = Read external RPGII indicators 12-808 =1382 ¢: 04:18 RPGRTL.SR¢ RPeENtiND 6 2:1 ste (3 1 
me Re wn WSTESLEREGg MG CRECBAG cogny; LOca string for converted numer a 
: 208 $9 NUM~STREDSCS$B~ =CLASS1 = C$K_CLASS_S; ! Initialize descriptor for | : 
: $18 if NURCSTREDEESACPOINTER DSCSE-D INFECT; De 
3 12 8 ie & A (OTSSCOT_L_TI (NUMBER> NUM_STRS) ! Convert input number to string | 
: 21 0274 LIBSSTOP (RPG$_FATINTERR 
; 14 0 23 IF CHSFAIL (CHSFIND_CH (. SARE: * LENGTH, NAME_TEXT, .NUM_STR_TEXT)) ; 
: 216 0 rg NRETURN OFF ; 
3 17 0278 ELSE 3 
: 218 0279 RETURN ON; ; 
: 219 0280 ; 
: 220 0281 END ; 
> 201 028¢ 2 ELSE F 
5 a ae 2 
: sso bs? 3 Logical name did not translate - return 0. 
3 226 0287 ie ; 
3 2e7 0288 RETURN OFF; ; 
: 228 0289 ; 
: 229 0290 1 END; : 
-TITLE RPGSEXT_INDS Read external RPGII indicators : 
“IDENT \1-003\ 3 
-PSECT _RPGSCODE,NOWRT, SHR, PIC,2 
53 44 4E 49 SF 54 58 45 24 47 50 52 00000 P.AAA: .ASCII \RPGSEXT_INDS\ ; ; 
.EXTRN LIBSSTOP, OTSS$CVT_L ; 
“EXTRN RPGS PATINTERR. RPGS. 1 NVARG ; 
“EXTRN SYSS$TRNLOG ; 
0004 90909 .ENTRY RPGSEXT_INDS, Save R2 > 0163 ; 
sg ommoggogs on 3 ames LRRD : : 
04 AC BS 0000E TSTL > 0231 : 
06 15 00011 BLEG hm ; ; 
08 04 aC pi 90015 CPL NUMBER, #8 : 
000000006 8F Dd $0019 1$: PUSHL  #RPGS_INVARG > 0232 ; 
6 01 FB O001F CALLS #1 LTBssTop : ; 
F8 AD O10EOOFF 8F DO 00022 2$: MOVL #17694975, DEST_DESC : 0239 i 
FC AD 10 AE i 900 A MOVAB NAME TEXT. DEST “DESC +4 : Oohe 
FO AD O10EQ00C 8F 00 0002F MOVL #17694732. LOG DESC > 0244 
F4 OAD BA AF 9E 900 7 MOVAB P.AAA, LOG_DEST+4 > 0247 
7E 7C€ 0003C CLRQ = SP) + 0255 

7E D4 900 CLRL = = (SP) : 

F8 AD OF 0045 PUSHAB DEST_DESC ; 

10 AE 9F 004 PUSHAB NAME~LENGTH : 

FO AD SF 00046 PUSHAB LOG_DESC : 

000000006 00 06 FB 00049 CALLS #6, ~SYSSTRNLOG : 

1 D1 00050 CMPL ~=s RO. 1 F 

} 


ot lal 
1-00 


; Routine Size: 


: 230 

s es" 

: Name 

> _RPGSCODE 

: File 

: _$255$DUA28: 
; ~$558$DUAD8: 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE) /NOTRACE/LIS=LIS$:RPGEXTIND/OBJ=OBJ$:RPGEXTIND MSRC$:RPGEXTIND/UPDATE=(ENHS:RPGEXTIND 


Read external RPGII indicators 
RPGSEXT_INDS = Read external RPGII indicators 


D 12 
04 AE 6E tf 9A 
08 AE 010E0001 F pO 
OC AE 04 AE 9E 
08 AE af 
04 =A F 
000000006 00 05 Fe 
09 E8 0 
000000006 Bf DD 8 
2 1 FB 
10 AE 6E 04 Ag 3A 
oF og 
1 8 
a4 $30 
50 01 p00 
04 0 
50 040 
04 0 
149 bytes, Routine Base: _RPGS$CODE + 000 
0291 1 
0292 0 END ELUDOM 
PSECT SUMMARY 
Bytes 
161 NOVEC,NOWRT, RD, 
Library Statistics ‘ 
coccceee Symbols 
Total Loaded 
IBJSTARLET.L32;1 9776 11 
TL.OBJIJRPGLIB.L32;1 54 0 


COMMAND QUALIFIERS 


M13 
16-Sep-1984 02:14:55 AX=-11 Bliss-32 V4.0-7 
12-808-1 38s 98 beta RPGRTL.SRCJRPGEXTIND. 8 2;1 
00 BNEQ 5$ 
Mie MOVZBL #110 WyA_ST STR, TEXT 
005A MOVL  #17694721-> NUM_STR 
0062 OVAB_ NUM_STR_ texte NUM_STR+4 
06 PUSHAB NUM STR™ 
006A PUSHAB NUMBER 
9060 CALLS #2, gysscvT_ L_TI 
0074 LBS R $ 
0077 PUSHL #RPGS FATINTERR 
0070 CALLS #1, LYIBS$ST 
0080 3$: LOCC NUM SiR TEXT, NAME_LENGTH, NAME_TEXT 
b086 BNEQ 4$ 
08 CLRL R1 
OO8A 4$ TSTL R1 
008C BEQL 5$ 
OO8E MOVL #1, RO 
0091 RET 
0092 5$ CLRL RO 
0094 RET 
C 
Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
eccecece Pages Processing 
Percent Mapped 
0 581 00:01.0 
0 9 00:00.1 


Be Se Se Se Ge Be Fe Be Se Ge Fe Fe Ge Ge Ge Se Fe Be Be 


—_ 


RPESE XT INOS 

1-00 

5 ) 

; Size: 149 code + 12 data bytes 
5 hun fine 0608.1 J 

3 Elapsed. Time 00:19.0 

3; Lines/CPU Min: ae8 

3 Lexemes/CPU-Min: 1526 


panety Sees 62 pages 


Compilation Complete 


Read external RPGII indicators 
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